perm filename WING.DOC[0,BGB] blob sn#095854 filedate 1974-04-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INTEGER PROCEDURE ECCW (INTEGER E,FV)
C00003 ENDMK
CāŠ—;
INTEGER PROCEDURE ECCW (INTEGER E,FV);
BEGIN "ECCW"
	IF PFACE(FEV)=FV THEN RETURN(PCCW(E));
	IF NFACE(FEV)=FV THEN RETURN(NCCW(E));
	IF PVT(FEV)=FV   THEN RETURN(PCW(E));
	IF NVT(FEV)=FV   THEN RETURN(NCW(E));
	FATAL;
END "ECCW";